home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / jed10.zip / CLEAR.MAC < prev    next >
Text File  |  1993-02-26  |  846b  |  20 lines

  1. ;---------------------------------------------------------------
  2. ;   CLEAR    --  Clears the entire visible screen buffer
  3. ;   Last update 3/16/89
  4. ;
  5. ;      Caller must pass:
  6. ;      In VidAddress:  The name of the string to be poked at
  7. ;      In TheChar: The character to be pocked into the string
  8. ;      In ToPos:   The 0-based position in the string to poke to
  9. ;      Action:     Pokes character passed in TheChar into string
  10. ;                  passed in Target to position passed in ToPos.
  11. ;                  The first character in the string is 0, etc.
  12. ;---------------------------------------------------------------
  13. Clear      MACRO VidAddress,ClearAtom,BufLength
  14.            les  DI,DWORD PTR VidAddress
  15.            mov  AX,ClearAtom
  16.            mov  CX,BufLength
  17.            rep  stosw
  18.            GotoXY 0,0
  19.            ENDM
  20.